Monster Media 1994 #2/Monster Media No. 2 (Monster Media)(1994).ISO/finance/cs4_b.zip/SUMMARY1.STY

Text File | 1994-05-15 | 6KB | 160 lines

@IF @SA > {13} THEN
 @UE
@EI
@MA7 @MD00 @MC+ @MS- @ME10
> @VS01 := "FIRST_TIME"
@IF @RD = "SCREEN" THEN
@MK8 @MV26 @MH2
Category Name             @SI01--  @SI02--  @SI03--  @SI04--  @SI05--  @SI06--  @SI07--  @SI08--  @SI09--  @SI10--  @SI11--  @SI12--  @MB{(12-@SA)*8}    Total
@IF @RT  "NONE" THEN
    Avg
@EI

═════════════════════════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ @MB{(12-@SA)*8} ════════
@IF @RT  "NONE" THEN
 ══════
@EI

> @VN82 := {0}
@EL
> @VN82 := {1}
@PA ;
@IF @SA > {4} THEN
@PD ;
@EI
@EI

@LA12345
@IF {@VN82} = {1} THEN
> @VN81 := {5}  ; adjust form feed counter for heading
> @VN82 := {0}
@MI{@RI} @HC------                           @MT+ @HN------------------------------------------------------------ @MT- 
@MI{@RI} @HA-----                            @MT+ @HS------   through   @HE------                                 @MT- 
 
@MI{@RI} Category Name         @SI01--  @SI02--  @SI03--  @SI04--  @SI05--  @SI06--  @SI07--  @SI08--  @SI09--  @SI10--  @SI11--  @SI12--  @MB{(12-@SA)*8}    Total
@IF @RT  "NONE" THEN
    Avg
@EI

@MI{@RI} ===================== ======= ======= ======= ======= ======= ======= ======= ======= ======= ======= ======= ======= @MB{(12-@SA)*8} ========
@IF @RT  "NONE" THEN
 ======
@EI

@EI
@MU+
> @VN01 := {@VN01+@SH01}
> @VN02 := {@VN02+@SH02}
> @VN03 := {@VN03+@SH03}
> @VN04 := {@VN04+@SH04}
> @VN05 := {@VN05+@SH05}
> @VN06 := {@VN06+@SH06}
> @VN07 := {@VN07+@SH07}
> @VN08 := {@VN08+@SH08}
> @VN09 := {@VN09+@SH09}
> @VN10 := {@VN10+@SH10}
> @VN11 := {@VN11+@SH11}
> @VN12 := {@VN12+@SH12}
@MU-
> @VN81 := {@VN81+1}          ; increase form feed counter
> @VS99 := "      -"
@IF {@SH00} > {0} THEN
> @VN90 := {@VN90+1}                ; count # of income category
@IF @RC  "SUB" THEN
> @VN83 := {@VN83+@SH00}      ; Total income
@EI
@EL @IF @RC  "SUB" THEN
> @VN84 := {@VN84+@SH00}      ; Total expense
> @VN90 := {@VN90-1}                ; count # of expense category
@EI

@IF @RD = "SCREEN" THEN
@SN----------------------  @SH01--  @SH02--  @SH03--  @SH04--  @SH05--  @SH06--  @SH07--  @SH08--  @SH09--  @SH10--  @SH11--  @SH12-- @MB{(12-@SA)*8}
> @VS99 := "       -"
@MA8  @SH00---
@EL
@IF @RC = "MAJOR" THEN
@MI{@RI} @SN------------------  @SH01--  @SH02--  @SH03--  @SH04--  @SH05--  @SH06--  @SH07--  @SH08--  @SH09--  @SH10--  @SH11--  @SH12-- @MB{(12-@SA)*8}
> @VS99 := "       -"
@MA8  @SH00---
@EL @IF @RC = "SUB" THEN
@MI{@RI} @SN------------------  @SH01--  @SH02--  @SH03--  @SH04--  @SH05--  @SH06--  @SH07--  @SH08--  @SH09--  @SH10--  @SH11--  @SH12-- @MB{(12-@SA)*8}
> @VS99 := "       -"
@MA8  @SH00---
@EL
@MI{@RI} @SN------------------  @SH01--  @SH02--  @SH03--  @SH04--  @SH05--  @SH06--  @SH07--  @SH08--  @SH09--  @SH10--  @SH11--  @SH12-- @MB{(12-@SA)*8}
> @VS99 := "       -"
@MA8  @SH00---
@EI
@EI
@IF @RT  "NONE" THEN
> @VN80 := {@SH00/@SA}
> @VS99 := "     -"
@MA6  @VN80- @MA7
@EI

@A+1
@IF {@SH00} < {0} THEN
@IF {@VN90} > {0} THEN
@IF @VS01 = "FIRST_TIME" THEN
> @VS01 := ""
@IF @RD = "SCREEN" THEN
                          ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── @MB{(12-@SA)*8} ────────
@EL
@MI{@RI}                       ------- ------- ------- ------- ------- ------- ------- ------- ------- ------- ------- ------- @MB{(12-@SA)*8} --------
@EI
> @VS99 := "      -"
@IF @RD = "SCREEN" THEN
TOTAL INCOME............. @VN01--  @VN02--  @VN03--  @VN04--  @VN05--  @VN06--  @VN07--  @VN08--  @VN09--  @VN10--  @VN11--  @VN12-- @MB{(12-@SA)*8}  @MA8 @VN83--- @MA7
@EL
@MI{@RI} TOTAL INCOME......... @VN01--  @VN02--  @VN03--  @VN04--  @VN05--  @VN06--  @VN07--  @VN08--  @VN09--  @VN10--  @VN11--  @VN12-- @MB{(12-@SA)*8}  @MA8 @VN83--- @MA7
@EI
 
 
> @VN01 := {0}
> @VN02 := {0}
> @VN03 := {0}
> @VN04 := {0}
> @VN05 := {0}
> @VN06 := {0}
> @VN07 := {0}
> @VN08 := {0}
> @VN09 := {0}
> @VN10 := {0}
> @VN11 := {0}
> @VN12 := {0}
> @VN81 := {@VN81+3}  ; adjust form feed counter
@EI  ; end of "FIRST_TIME" condition
@EI  ; end of {VN90 = 1}
@EI  ; end of {@SH00 < 0} condition
@IF @RD  "SCREEN" THEN
@IF {@VN81} ≥ {@RF} THEN
@PB 
@UM"Ready to print next page."
> @VN82 := {1}
@EI
@EI
@EA
@IF @RD = "SCREEN" THEN
                          ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── @MB{(12-@SA)*8} ────────
@EL
@MI{@RI}                       ------- ------- ------- ------- ------- ------- ------- ------- ------- ------- ------- ------- @MB{(12-@SA)*8} --------
@EI
> @VS99 := "      -"
@IF @RD = "SCREEN" THEN
TOTAL EXPENSE............ @VN01--  @VN02--  @VN03--  @VN04--  @VN05--  @VN06--  @VN07--  @VN08--  @VN09--  @VN10--  @VN11--  @VN12-- @MB{(12-@SA)*8} @MA8  @VN84--- @MA7 
                          ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── @MB{(12-@SA)*8} ────────
@EL
@MI{@RI} TOTAL EXPENSE........ @VN01--  @VN02--  @VN03--  @VN04--  @VN05--  @VN06--  @VN07--  @VN08--  @VN09--  @VN10--  @VN11--  @VN12-- @MB{(12-@SA)*8} @MA8  @VN84--- @MA7 
@MI{@RI}                       ------- ------- ------- ------- ------- ------- ------- ------- ------- ------- ------- ------- @MB{(12-@SA)*8} --------
@EI
> @VN80:={@VN83 + @VN84}
> @VS99 := "      -"
@IF @RD = "SCREEN" THEN
@MS+ GRAND TOTAL (Inc-Exp).... @SV01--  @SV02--  @SV03--  @SV04--  @SV05--  @SV06--  @SV07--  @SV08--  @SV09--  @SV10--  @SV11--  @SV12-- @MB{(12-@SA)*8}  @MA8 @VN80--- 
                          ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ @MB{(12-@SA)*8} ════════
@EL
@MI{@RI} @MS+ GRAND TOTAL (Inc-Exp) @SV01--  @SV02--  @SV03--  @SV04--  @SV05--  @SV06--  @SV07--  @SV08--  @SV09--  @SV10--  @SV11--  @SV12-- @MB{(12-@SA)*8}  @MA8 @VN80--- 
@MI{@RI}                       ======= ======= ======= ======= ======= ======= ======= ======= ======= ======= ======= ======= @MB{(12-@SA)*8} ========
@EI